home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Linux / Kubuntu 8.10 / kubuntu-8.10-desktop-i386.iso / casper / filesystem.squashfs / usr / share / debconf / frontend < prev    next >
Text File  |  2008-10-10  |  2KB  |  102 lines
  1. #!/usr/bin/perl -w
  2. # This file was preprocessed, do not edit!
  3.  
  4.  
  5. use strict;
  6. use Debconf::Db;
  7. use Debconf::Template;
  8. use Debconf::AutoSelect qw(:all);
  9. use Debconf::Log qw(:all);
  10.  
  11. Debconf::Db->load;
  12.  
  13. debug developer => "frontend started";
  14.  
  15. my $frontend=make_frontend();
  16.  
  17. shift @ARGV if $ARGV[0] eq '--';
  18.  
  19. my $package;
  20. if ($ARGV[0]=~m!^.*/(.*?)\.(?:postinst|postrm|prerm)$!) {
  21.     $package=$1;
  22. }
  23. elsif (-e "/var/lib/dpkg/tmp.ci/control") {
  24.     open (CONTROL, "< /var/lib/dpkg/tmp.ci/control")
  25.         || die "Debconf: unable to open control file: $!";
  26.     while (<CONTROL>) {
  27.         if (/^Package: (.*)/) {
  28.             $package=$1;
  29.             last;
  30.         }
  31.     }
  32.     close CONTROL;
  33.     if (! exists $ENV{PERL_DL_NONLAZY} || ! $ENV{PERL_DL_NONLAZY}) {
  34.         warn "PERL_DL_NONLAZY is not set, if debconf is running from a preinst script, this is not safe";
  35.     }
  36. }
  37. else {
  38.     $package='';
  39.  
  40.     debug developer => 'Trying to find a templates file..';
  41.     sub trytemplate {
  42.         my $fn=shift;
  43.         debug developer => "Trying $fn";
  44.         if (-e $fn) {
  45.             debug developer => "I guess it is $fn";
  46.             Debconf::Template->load($fn, $package);
  47.             return 1;
  48.         }
  49.         else {
  50.             return;
  51.         }
  52.     }
  53.  
  54.     unless (trytemplate("$ARGV[0].templates")) {
  55.         unless ($ARGV[0]=~m/(.*)config$/ && trytemplate("${1}templates")) {
  56.             unless ($ARGV[0]=~m!^(?:.*/)?(.*)! && trytemplate("/usr/share/debconf/templates/${1}.templates")) {
  57.                 debug developer => "Couldn't find a templates file."
  58.             }
  59.         }
  60.     }
  61. }
  62. debug developer => "frontend running, package name is $package";
  63. $frontend->default_title($package) if length $package;
  64. $frontend->info(undef);
  65.  
  66. if ($ARGV[0] =~/^(.*[.\/])(?:postinst|preinst)$/) {
  67.     my $base=$1;
  68.  
  69.     my $templates=$base."templates";
  70.     Debconf::Template->load($templates, $package)
  71.         if -e $templates;
  72.  
  73.     my $config=$base."config";
  74.     if (-e $config) {
  75.         my $version=$ARGV[2];
  76.         if (! defined($version)) {
  77.             $version='';
  78.         }
  79.         my $confmodule=make_confmodule($config,
  80.             "configure", $version);
  81.  
  82.         $confmodule->owner($package);
  83.  
  84.         1 while ($confmodule->communicate);
  85.         
  86.         exit $confmodule->exitcode if $confmodule->exitcode > 0;
  87.     }
  88. }
  89.  
  90. my $confmodule=make_confmodule(@ARGV);
  91.  
  92. $confmodule->owner($package);
  93.  
  94. 1 while ($confmodule->communicate);
  95.  
  96. $frontend->shutdown;
  97.  
  98. Debconf::Db->save;
  99.  
  100. exit $confmodule->exitcode;
  101.  
  102.